home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PASCSRC.ZIP / FUNCTION.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  417b  |  17 lines
  1.                                 (* Chapter 5 - Program 6 *)
  2. program Example_Function;
  3.  
  4. var Dogs,Cats,Feet : integer;
  5.  
  6. function Quad_Of_Sum(Number1,Number2 : integer) : integer;
  7. begin
  8.    Quad_Of_Sum := 4*(Number1 + Number2);
  9. end;
  10.  
  11. begin  (* main program *)
  12.    Dogs := 4;
  13.    Cats := 3;
  14.    Feet := Quad_Of_Sum(Dogs,Cats);
  15.    Writeln(' There are a total of',Feet:3,' paws.');
  16. end.  (* of main program *)
  17.